--Use in OpenCard script on cards with words highlighted with rectangle
on FlashPict
Repeat 2
hide card picture
wait 5
show card picture
end repeat
End FlashPict
--Use on cards where search terms are typed in automatically. Note --that field to be typed into must be named "blue"
On TypeChar
set userlevel to 2
global TVar
click at loc of card field "blue"
put 1 into x
repeat for the number of chars in tVar
get char x of tVar
type it
add 1 to x
wait 10
End Repeat
set userlevel to 1
End TypeChar
--Use to show field "red" with unDissolve - Note that it only works --for going to next card
On UnDissolve
lock screen
go next
hide card field "red"
unlock screen
wait 20
lock screen
show card field "red"
unlock screen with dissolve
End UnDissolve
--For going to (Advanved) Menu card
On UnDissolveToMenu
lock screen
go card "menu"
hide card field "red"
unlock screen
wait 20
lock screen
show card field "red"
unlock screen with dissolve
End UnDissolveToMenu
--For use with flashing dot in field between 2 non-flashing dots
On FlashDot
repeat 5
hide card field "dot"
wait 20
show card field "dot"
wait 50
end repeat
End FlashDot
--********************************************
--*********************************************
--********************************************
--*********************************************
--The following copied & adapted from stack ccMedTut1 ---->>
--Note that Tab,Enter,Arrow, and REturn keys are controlled from within stak scrpt.Stak scrpt programs these keys to beep. In cases where they are supposed to cause a diff action (i.e. Go next card), t scrpt for individual card has a handler that overrides t stak scrpt - Works nicely.If all arrows are supposed to beep, I've deleted t card scrpt to program this, since t stak scrpt already does it.
--On OpenStack
--hide menubar
--End OpenStack
--*************************************
--Protection - Stak protctn level(set in Dialog Box with password --is set to 2, so that letters can be typed in where necessary. --This can be re-set [only] to lower level (i.e. 1) with a scrpt, which --is what this OpenCard scrpt does for each card.
on openCard
--setting userLevel to 1. This will be overridden in OpenCard --scrpt for cards where info is typed in
--set the userLevel to 1 --for public use stak, make this "set ..to 1"
--setting cantModify. Overridden in OpenCard script for cards --that have counter
--set cantModify of this stack to true --change to true for publ use
--next 2 lines are to create variable to use in OpenCard --scrpts for all cards - sets time to wait before displaying --info field - Change variable according to desire...
global x --easier to do this in OpenCard scrpt instd of OpenStk
put 40 into x --scr because dont have to leave stak to initialze
--goes with On Idle script below
global origticks
put the ticks into origticks
end openCard
--****************************************
--Handler below controls how much idle time until return to first card
on idle
global origticks
if the ticks - origticks > 18000 then --60 ticks per sec,3600
go stack "HardinStart" --ticks per min
end if
end idle
--*******************************************
--Before putting stak out for public, there should be line for: back, home, help, recent, *first, *prev, *next, *last, *find, *message. --Starred ones taken out for devlpmnt use, of course .. Try just --putting 2 dashes in front of lines not to be used...
--On doMenu theItem
--if theItem is "back" or --theItem is "home" or --theItem is "help" or --theItem is "recent" or --theItem is "first" or --theItem is "prev" or --theItem is "next" or --theItem is "last" or --theItem is "find"
--then beep
--Else pass doMenu --!!This line critical!!
--End doMenu
--***************************************
On TabKey
beep
End TabKey
On EnterKey
beep
End EnterKey
--On ArrowKey which
--if which is "right" then beep
--if which is "down" then beep
--if which is "left" then beep
--if which is "up" then beep
--End ArrowKey
--Make this an active scrpt (remove initial hyphens) before putting --out for public use
